program pr;
var 
x: entero;
y: entero;

begin
x:=;
if (x>0) then 
x:=5;
else
y:=true;

end.
